;	
    bank &C0
; curves and graphics	
 	org &800
c0_800_start
TAB_MOVES_B incbin "files/MOVEPBOT.TAB"
	align 256
TAB_MOVES_T incbin "files/MOVEPTOP.TAB"
	align 256	
SPRITE_HL   
	incbin "files/HVYNZL.WIN"
	align 256
SPRITE_HR	
	incbin "files/HVYNZR.WIN"
	align 256
SPRITE_LL  
	;incbin "files/LMODE0I.WIN"
	incbin "files/LVYNZL4.WIN"
	align 256
SPRITE_LR
	incbin "files/LVYNZR4.WIN"
;  
	align 256  
SPRITE_B  
	incbin "files/BVYNZ.WIN"
SPRITE_H_LOGO	
    incbin "files/HLOGO.WIN"	
SPRITE_B_LOGO  
    incbin "files/BFINAL.WIN" ; LOGO.WIN"	
SPRITE_L_LOGO 
    incbin "files/LFINAL.WIN" 
;	align 256
LOVERS ;incbin "files/LOVERS.WIN"
;
ORNY    incbin "files/ORNY2.WIN"
YTES    incbin "files/YTES3.WIN"  
OVERS   incbin "files/OVERS3.WIN"  

COEUR5  incbin "files/COEUR5F.WIN"
COEUR6  incbin "files/COEUR6F.WIN"
;

    assert  $ <= 0x4000
c0_800_stop
c0_800_length equ c0_800_stop - c0_800_start




	org &8000
	run &8000
c0_8000_start
	read "intro_code.asm"
c0_8000_length equ $-c0_8000_start


	bank &C4	
;	
	; BUG there is a bug in BASM in the handling of the BANK directive...
	;     in the meanwhile, we have to use a warkaround to ge taccurate size
	org &4000
c4_start	
	terminok = load("files/FINALPIC.SCR")
	c4_length = list_len(terminok)
	db terminok 
c4_stop = c4_start + c4_length
;	incbin "files/TERMINOK.SCR"
;	assert $< 0x8000
;c4_stop
;c4_length equ $ - c4_start
;


;
	bank &C6
; music	
 	org &4000
c6_start
	read "music.asm"
c6_stop
; c6_length equ $-c6_start ; XXX this seems buggy
c6_length equ c6_stop - c6_start
;

    print "C4_start=", {hex}c4_start
	print "C4_stop=", {hex}c4_stop
	print "C4 length=", {hex}c4_length
	print "C6 length=", {hex}c6_length
	print "C0_800 length=", {hex}c0_800_length
	print "C0_8000 length=", {hex}c0_8000_length

    bank &C0
	save "C0.800", c0_800_start, c0_800_length
	save "C0.8000", c0_8000_start, c0_8000_length

    bank &C4
	save "C4.4000", c4_start, c4_length

	bank &C6
	save "C6.4000", c6_start, c6_length


	assert c4_length <= 0x4000
	assert c6_length <= 0x4000

	include once "../linking/src/demosystem/common.asm" 
	include once "../linking/src/demosystem/public.asm" 
LOAD_THE_LOADER equ false
SELECTED_CRTC   equ 1
; 
HEIGHT_HBL_FLASH equ 48
HEIGHT_HBL_MAIN equ 48+4-1+10-3-12
HEIGHT_HBL_HORNY equ 22
HEIGHT_HBL_HORNY2 equ 10+4
HEIGHT_HBL_HORNY3 equ 6+1
HEIGHT_HBL_BYTES equ 30+6-1-1
HEIGHT_HBL_BYTES2 equ 6-1
; all is displayed in &4000 page
;
SPRITE_VIDE equ &4000
MODE2 equ &8E
MODE0 equ &8C
R1 				equ 48
R2 				equ  &32 ; &32 for fullscreen
R2_LOGO         equ &2e-2-1
SCREEN_WIDTH 	equ R1*2
TABLINE_96 		equ END_CODE
TABLINE_80 		equ END_CODE+&200
SPRWIDTH 		equ 16
SPRHEIGHT       equ 48
WIDTH_OVERS     equ 34
;

BORDER_TOP		equ 93; 68  ;69 ;&5D
BORDER_BOTTOM 	equ 88   ;  71 ; 
;
INK0 		equ 84 ; 88 
INK1 		equ BORDER_BOTTOM
INK1_FLASH  equ 95 ; 95
;INK15       equ 92
BLACK 		equ 84
;
COLOR1_BYTES_LOGO equ 91

RASTER_TOP_BOTTOM equ BORDER_TOP*256+BORDER_BOTTOM ; &585D
RASTER_BOTTOM_TOP equ BORDER_BOTTOM*256+BORDER_TOP ; &5D58
RASTER_TOP_TOP    equ BORDER_TOP*256+BORDER_TOP ; &5858

BK_MUSIC equ &c6
;	
;
	nolist
;
; code start in &8000
; 
	di
	ld hl,&c9fb
	ld (&0038),hl
	im 1
	ld sp, &c000
; 
 ; breakpoint
;
   ld a,i

   cp 3
   jr z,CRTC_3_4_ADAPTATION
   cp 4
   jr nz,START_AFTER_CRTC_ADAPTATION
; 168 lines  
CRTC_3_4_ADAPTATION
;
; still useful?
; 
     ld a,29
     ld (NB_BGD_LINE1+1),a 
     ld a,47-30
     ld (NB_BGD_LINE2+1),a 
     ld a,61+1-30
     ld (NB_BGD_LINE3+1),a


  ld hl,&5aDD
 ld (HIDE_CORRUPTED_BYTE1+1),HL     ;  ld hl,&5aDD
  ld hl,&4d1d
 ld (HIDE_CORRUPTED_BYTE2+1),HL 

  ld hl,&4000
  ld (HIDE_CORRUPTED_BYTE3+1),hl 


START_AFTER_CRTC_ADAPTATION
	call generate_line_fullscreen
	ld hl,&c000
	ld de,TABLINE_80+2
	ld (TABLINE_80),hl
	ld hl,TABLINE_80
	ld bc,510
	LDIR

	call generate_line_standart
;	
;

	ld bc,&7f00+BK_MUSIC
	out (c),c
;	
;	di			; coz FapInit makes heavy use of SP
 	   ld	a,HiFapBuff 	; High byte of the decrunch buffer address.
 	   ld	bc, FapPlay     ; Address of the player binary.
 	   ld	de, ReturnAddr  ; Address to jump after playing a song frame.
 	   ld	hl, FapData     ; Address of song data.
 	   call    FapInit

	LD	BC,#7FC0
	OUT	(C),C

 	   ei
;
	DS_SECURE_WAIT_VSYNC()

			ld bc,&bc07		
			out (c),c
			ld bc,&bd00+&1E-2
			out (c),c
;
			ld bc,&bc01		
			out (c),c
			ld bc,&bd00+40
			out (c),c
;
			ld bc,&bc02
			out (c),c
			ld bc,&bd00+&2e
			out (c),c

			ld bc,&bc06
			out (c),c
			ld bc,&bd00+21
			out (c),c


;
PREPARE_FLASH_SCREENS

            call DISPLAY_BACKGROUND1 ; _FLASH
			call DISPLAY_BACKGROUND2
			call DISPLAY_BACKGROUND3
			call DISPLAY_BACKGROUND4
			call DISPLAY_BACKGROUND5
			call DISPLAY_BACKGROUND6

			ld hl,TABLINE_96+120
	        ld bc,SPRITE_HL
	        ld a,30-5
			call DISPLAY_SPRITE_SHORT

            ld hl,TABLINE_96+120
            ld bc,SPRITE_LR
            ld a,50+2+2
	        call DISPLAY_SPRITE_SHORT

            ld hl,TABLINE_96+240-16+8
            ld bc,SPRITE_B ; SPRITELL
            ld a,40
	        call DISPLAY_SPRITE_SHORT
;
            ld hl,HBL_ZONE_02
            ld (ROUTINE2+1),hl
			ld a,84
	        ld (pokborder+1),a

SEQUENCE_SPRITES_FLASH
;
; FRAME 1 = HBL for MODE 2 / MODE 0
;
STATIC_FLASH_FRAME_1
            DS_SECURE_WAIT_VSYNC()
    ;
 		
        	ld hl,ini_crtc_flash1
			call put_crtc
			ei
			ld bc,&7f8e
		    out (c),c	
	       	ld hl,TCOL_FLASH1
	     	call COLOR
			call PLAY_MUSIC_FAP
           
            halt
            halt

			ld b,36-2-1
WAITF1   	defs 60,0 ; 60 Nops
      		djnz WAITF1 
            call MAIN_HBL_ZONE
;       
; FRAME 2 = MODE 1 only
;
STATIC_FLASH_FRAME_2
            DS_SECURE_WAIT_VSYNC()
;
        	ld hl,ini_crtc_flash2
			call put_crtc
			ei
            ld bc,&7f8e
            out (c),c
			ld hl,TCOL_FLASH2
	     	call COLOR
			call PLAY_MUSIC_FAP
;
            halt
            halt
;
			ld b,36-2
WAITF2   	defs 60,0 ; 60 Nops
      		djnz WAITF2
;			
			ld bc,&7f8d
            out (c),c
			ld hl,&0100+INK1_FLASH
			out (c),h
			out (c),l
;			
; unsused, was useful for the first version without HBL
POK_MODE   ld bc,&7f8e
;          out (c),c
;
ALTERNATE_MODE_SPRITE
TIMER_FLASH       ld a,1
                  dec a
				  ld (TIMER_FLASH+1),a
				  or a
				  jr nz,END_SCENARIO

NEXT_SCENARIO_POSITION

POS_TABLE_FLASH    ld hl,TABLE_FLASHING_MOVES
                    ld a,(hl)
					or a
					jr nz,SAME_SCENARIO
RESET_SCENARIO
                 ld hl,TABLE_FLASHING_MOVES
				 ld (POS_TABLE_FLASH+1),hl
                 ld a,(hl)
SAME_SCENARIO     
                 ld (POK_MODE+1),a
                 inc hl
                 ld a,(hl) 
				 ld (TIMER_FLASH+1),a
                 inc hl
				 ld e,(hl)
				 inc hl
				 ld d,(hl)
				 ld (POK_SPRITE_LEFT+1),de
                 inc hl
				 ld e,(hl)
				 inc hl
				 ld d,(hl)
				 ld (POK_SPRITE_RIGHT+1),de
                 inc hl
				 ld a,(hl)
				 ld (POS_SPRITE_LEFT+1),a
				 inc hl
				 ld a,(hl)
				 ld (POS_SPRITE_RIGHT+1),a
				 inc hl
				 ld (POS_TABLE_FLASH+1),hl

END_SCENARIO
;
; displays H
                        ld hl,TABLINE_96+120+2-2
POK_SPRITE_LEFT	        ld bc,SPRITE_HL
POS_SPRITE_LEFT	        ld a,30
	                     call DISPLAY_SPRITE_SHORT
; displays L
                         ld hl,TABLINE_96+120-2
POK_SPRITE_RIGHT	     ld bc,&4000 ; SPRITELL
POS_SPRITE_RIGHT	     ld a,50
	                     call DISPLAY_SPRITE_SHORT


TIMER_SPRITES_FLASH ld hl,&150 ; +200
				dec hl
				ld (TIMER_SPRITES_FLASH+1),hl	
;		
			ld a,h
			or a
			jp nz,STATIC_FLASH_FRAME_1
;
PREPARE_MOVING_SRITES
; 
   ld hl,LINE_HBL_MODE1
   ld (POK_MIDDLE_LINE1+1),hl

   ld hl,LINE_MODE2_PEN1_MODE0_PEN14 
   ld (POK_BOTTOM_LINE1+1),hl
; 
; displays background  
; displays B character
;
TRANSITION1
            DS_SECURE_WAIT_VSYNC()

         	ld hl,ini_crtc_flash1
			call put_crtc
			ei
			ld bc,&7f8e
		    out (c),c	
	       	ld hl,TCOL_FLASH1
	     	call COLOR
			call PLAY_MUSIC_FAP

SCENARIO_TIMER_TRANSITION1 	ld a,1                  ; 2
				dec a                   ; 1
				ld (SCENARIO_TIMER_TRANSITION1+1),a ; 4
				jp nz,LEAVE_SCENARIO_MANAGEMENT_TRANS1


NEW_SCENARIO1
POS_TAB_SCE1 	ld hl,TAB_SCENARIO_TRANSITION1
	   		 ld a,(hl)
	  		  or a
		    jr nz,PAS_FIN_TAB1
;
               jr SEQUENCE_HBL_MOVING_SPRITES
PAS_FIN_TAB1

	    ld (SCENARIO_TIMER_TRANSITION1+1),a


		inc l
		ld e,(hl)
	    inc l
	 	 ld d,(hl)
		ld (ROUTINE_TRANSITION1+1),de
		inc l

		ld (POS_TAB_SCE1+1),hl
;
LEAVE_SCENARIO_MANAGEMENT_TRANS1 

ROUTINE_TRANSITION1 call DISPLAY_BACKGROUND1

       jp TRANSITION1
;

DISPLAY_B_TRANSITION1
	ld hl,TABLINE_96+120
	ld bc,SPRITE_B
	ld a,40
	call DISPLAY_SPRITE_SHORT

    ld hl,HBL_ZONE_012
    ld (ROUTINE2+1),hl
	ld a,BORDER_BOTTOM
	ld (pokborder+1),a
	ret

; ****************************************************************************************************
SEQUENCE_HBL_MOVING_SPRITES

            ld hl,HBL_ZONE_012
            ld (ROUTINE2+1),hl
;
MAIN_LOOP
	DS_SECURE_WAIT_VSYNC()
;
   ld hl,&5aDD
   ld (hl),0
   ld hl,&4d1d
   ld (hl),0

    ld hl,ini_crtc_moving
	call put_crtc
;		
	ei
;
MODE_TOP ld bc,&7f8C
		out (c),c	
		ld hl,TCOL_MAIN
		call COLOR
;	
POK_RASTER0	 ld hl,&010f
POK_RASTER0A ld de,RASTER_BOTTOM_TOP ; &5D58

			ld hl,&010f
			ld de,RASTER_TOP_TOP ; &5858
			out (c),h
			out (c),d
			out (c),l
			out (c),e
; *************************************
	    	call PLAY_MUSIC_FAP

			call SCENARIO

;			
ROUTINE1   call DISPLAY_MOVING_SPRITE1

OFFSET_MIDDLE ld hl,&1000
			ld bc,&bc0c
			out (c),c
			inc b
	;		dec c
			out (c),h
			dec b
			inc c
			out (c),c
			inc b
		;	dec c
			out (c),l	


		halt
;
        call MAIN_HBL_ZONE
;
PART       call STATIC_SPRITES
	    	ld b,15-1 
WAIT3     defs 60,0 ; 60 Nops
      	 djnz WAIT3


ROUTINE3 call DISPLAY_MOVING_SPRITE2


		EI

   call SPACEKEY_TEST

;
		JP NC,EXIT_PART            		

	include once "../linking/src/limited_duration.asm"
	CHECK_IF_PART_IS_OVER()
	jp z, EXIT_PART
;
TIMER_ROTATION ld hl,&260+&100+80+40+80+160; +200
				dec hl
				ld (TIMER_ROTATION+1),hl	
;		
	     		ld a,h
		     	or a
                jp nz,MAIN_LOOP


SEQUENCE_WORDS_DISPLAY
            ld hl,&8d8c
			ld (POK_M2X+1),hl
			ld hl,&7f8e
			ld (POK_M1X+1),hl	
;
; displays H,B, L
                         call DISPLAY_H_LOGO
;						
                         call DISPLAY_B_LOGO 

						  call DISPLAY_L_LOGO 

	;		breakpoint
MAIN_WAIT_DISPLAY
	
			DS_SECURE_WAIT_VSYNC()
;			
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c
;					
			halt

			ld b,32
WAIT_WAIT		defs 60,0;
			djnz WAIT_WAIT
;
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO
			ei
           call RASTERS_LOVERS	
TIMER_WAIT      ld hl,&160 ; +200
				dec hl
				ld (TIMER_WAIT+1),hl	
;		
	     		ld a,h
		     	or a
                jp nz,MAIN_WAIT_DISPLAY


MAIN_ORNY_DISPLAY
	
			DS_SECURE_WAIT_VSYNC()
 ;
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c
;					
			halt

			ld b,32
WAIT1O		defs 60,0;
			djnz WAIT1O
;  
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO

            ei
			  call RASTERS_LOVERS	
            call DISPLAY_ORNY

;


TIMER_ORNY      ld hl,&120 ; +200
				dec hl
				ld (TIMER_ORNY+1),hl	
;		
	     		ld a,h
		     	or a
                jp nz,MAIN_ORNY_DISPLAY

MAIN_YTES_DISPLAY
	
			DS_SECURE_WAIT_VSYNC()
 ;
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c
;					
			halt

			ld b,32
WAIT1Y		defs 60,0;
			djnz WAIT1Y
;
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO
            ei
			  
		   call RASTERS_LOVERS	

           call DISPLAY_YTES



TIMER_YTES      ld hl,&120 ; +200
				dec hl
				ld (TIMER_YTES+1),hl	
;		
	     		ld a,h
		     	or a
                jp nz,MAIN_YTES_DISPLAY
;
; OVERS is displayed with 3 routines!!!
;
MAIN_OVERS_DISPLAY1
	
			DS_SECURE_WAIT_VSYNC()
 ;
 ;;  breakpoint
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c
;					
			halt

			ld b,32
WAIT1OV		defs 60,0;
			djnz WAIT1OV
;
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO

            ei
			  call RASTERS_LOVERS	
			halt
     ;       halt
			ld b,8+6+1+1+13
WAIT1OV2		defs 60,0;
			djnz WAIT1OV2

; lOVERS

	ld a,WIDTH_OVERS 
    ld (WIDTH_SPRITE+1),a
	ld a,45
	ld (POSX_SPRITE+1),a
; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,21-8
	ld bc,OVERS
	ld hl,TABLINE_80+220+40+12+2+4

    call DISPLAY_SPRITE_80BYTES

MAIN_OVERS_DISPLAY2
	
			DS_SECURE_WAIT_VSYNC()
 ;
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c
; overs2	
	ld a,10+2
	ld bc,OVERS+(13*WIDTH_OVERS)
	ld hl,TABLINE_80+220+40+12+26+2+4

    call DISPLAY_SPRITE_80BYTES
 
			halt

			ld b,32
WAIT1OV3		defs 60,0;
			djnz WAIT1OV3
;
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO

            ei
			  call RASTERS_LOVERS	
; overs3
    ld a,58-21-10-1-2+6
	ld bc,OVERS+(25*WIDTH_OVERS)
	ld hl,TABLINE_80+220+40+12+26+24+2+4

    call DISPLAY_SPRITE_80BYTES

TIMER_OVERS ld hl,&160
				dec hl
				ld (TIMER_OVERS+1),hl	
;		
			ld a,h
			or a
			jp nz,MAIN_OVERS_DISPLAY2


SEQUENCE_LOGO_DISPLAY

MAIN_LOGO_DISPLAY_RAIN
	
			DS_SECURE_WAIT_VSYNC()
 ;
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c
;					
			halt

			ld b,32
WAIT1		defs 60,0;
			djnz WAIT1
;
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO
           	ei

         
          call RASTERS_LOVERS	
	
;     

            di
	        call RAIN_CODE
			call RAIN_CODE
			call RAIN_CODE
			call RAIN_CODE
			call RAIN_CODE
			  call RAIN_CODE
			call RAIN_CODE
			call RAIN_CODE
			 call RAIN_CODE
			call RAIN_CODE
			call RAIN_CODE
			 call RAIN_CODE
			call RAIN_CODE
			call RAIN_CODE
			 call RAIN_CODE
		
			ei
		
          call SPACEKEY_TEST

		JP NC,EXIT_PART 

TIMER_LOGO_DISPLAY ld hl,&200
				dec hl
				ld (TIMER_LOGO_DISPLAY+1),hl	
;		
			ld a,h
			or a
			jp nz,MAIN_LOGO_DISPLAY_RAIN
;
; breakpoint
; A- TO REMOVE WHEN SCREEN IS OK
; displays H,L
                   ;      call DISPLAY_H_LOGO
;						
                    ;     call DISPLAY_B_LOGO 
  ; call DISPLAY_ORNY
  ; call DISPLAY_YTES
;   
; Z - TO REMOVE WHEN SCREEN IS OK   
;

;		breakpoint


MAIN_ANIMATION_HEART
	
			DS_SECURE_WAIT_VSYNC()
 ;
 ; breakpoint
            ld hl,ini_crtc_logo
			call put_crtc
;	
            ld bc,&7f10
			out (c),c
			ld a,84
			out (c),a
;			
			ld bc,&7f8c
			out (c),c

            call SCENARIO_SPR  

			halt

			ld b,32
WAITH		defs 60,0;
			djnz WAITH
;
            ld hl,TCOL_LOGO
			call COLOR
			call PLAY_MUSIC_FAP

			defs &16-14,0
			call HBL_ZONE_LOGO
           	ei

        call RASTERS_LOVERS	
;   
ROUTINE_DISPLAY_HEART call ROUTINE_DISPLAY_HEART
 
          call SPACEKEY_TEST

		JP NC,EXIT_PART 

TIMER_ANIMATION_HEART ld hl,&260+&260
				dec hl
				ld (TIMER_ANIMATION_HEART+1),hl	
;		
			ld a,h
			or a
			jp nz,MAIN_ANIMATION_HEART
      
		jp EXIT_PART



DISPLAY_HEART6
      ld bc,COEUR6
	  JR DISPLAY_H56

DISPLAY_HEART5
       ld bc,COEUR5
	   JR DISPLAY_H56

DISPLAY_HEART4
       ld bc,COEUR4
DISPLAY_H4
	ld a,12 
    ld (WIDTH_SPRITE+1),a
	ld a,43+1
	ld (POSX_SPRITE+1),a
; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,48-4-5
	ld hl,TABLINE_80+220+40+12+12+2+8-6

    call DISPLAY_SPRITE_80BYTES
	ret	   
;
DISPLAY_H56
	ld a,15 
    ld (WIDTH_SPRITE+1),a
	ld a,43
	ld (POSX_SPRITE+1),a
; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,48-4+1
	ld hl,TABLINE_80+220+40+12+12+2

    call DISPLAY_SPRITE_80BYTES
	ret
DISPLAY_HEART3
      ld bc,COEUR3
	  JR DISPLAY_H123

DISPLAY_HEART2
       ld bc,COEUR2
	   JR DISPLAY_H123

DISPLAY_HEART1
       ld bc,COEUR1
;
DISPLAY_H123
	ld a,11 
    ld (WIDTH_SPRITE+1),a
	ld a,43+1
	ld (POSX_SPRITE+1),a

    ld a,48-4-5+3
	ld hl,TABLINE_80+220+40+12+12+2+8-6+6-2

    call DISPLAY_SPRITE_80BYTES
	ret
;
RASTERS_LOVERS
            ld bc,&7f00+7
			out (c),c
			ld a,&55
			out (c),a
			ld bc,&7f00+9
			out (c),c
			ld a,69
			out (c),a		
		    ld bc,&7f00+1 
			out (c),c
			ld a,&4d
			out (c),a	
			ret

SPACEKEY_TEST

	    LD	BC,#F40E
        OUT	(C),C
        LD	BC,#F6C0
        OUT	(C),C
;  XOR	A
;  OUT	(C),A
  		defb &ed,&71
        LD	BC,#F792
        OUT	(C),C
        LD	BC,#F645
        OUT	(C),C
        LD	B,#F4
        IN	A,(C)
        LD	BC,#F782
        OUT	(C),C
;  LD	BC,#F600
;  OUT	(C),C
		dec b
		defb &ed,&71
;		
        RLA	
		ret

;

MAIN_HBL_ZONE
           defs 64-5,0
			defs 3,0
	 		ld b,7
WAIT   		  defs 60,0 ; 60 Nops
      		 djnz WAIT 
			
;
; ADAPTATION PLUS avec -1 

       xor a
HIDE_CORRUPTED_BYTE1       ld hl,&5504 ; &5aDD
       ld (hl),a
  	   
HIDE_CORRUPTED_BYTE2        ld hl,&5504
       ld (hl),a

       dec a ; a =&ff

HIDE_CORRUPTED_BYTE3        ld hl,&5add
       ld (hl),a

ROUTINE2 	call HBL_ZONE_012		


MODE_BOTTOM ld bc,&7f8e
			out (c),c

pokborder		ld hl,&1000+BORDER_BOTTOM
			out (c),h 
			out (c),l			
;			
            ret   	


put_crtc
	LD	bc,#bd00+7
reg_crtc
	OUTI	
	INC	b
	INC	b
	OUTI	
	DEC	c
	JR	nz,reg_crtc
	RET	
;
ini_crtc_main	DB 	1,R1 
ini_crtc_load   DB	2,R2
		  	DB  6,21
			DB  7,&1E-2
		    DB	9,7
			DB  12,&30
            DB  13,&00
			defb 1,0

ini_crtc_moving	DB 	1,R1 
		       DB	2,R2
		  	DB  6,21
			DB  7,&1E-2
		    DB	9,7
			DB  12,&10
            DB  13,&00

ini_crtc_flash1 	DB 	1,R1 
		       DB	2,R2
		  	DB  6,14-1
			DB  7,&1E-2
		    DB	9,7
		 ;   defb 3,&88
			DB  12,&10
            DB  13,&00

ini_crtc_flash2	DB 	1,R1 
           ; defb 3,&88
		     DB	2,R2
		  	DB  6,14-1
			DB  7,&1E-2
		    DB	9,7
			DB  12,&11  ; 12th line
            DB  13,&80-&30
;
ini_crtc_logo	DB 	1,40
		       DB	2,R2_LOGO
		  	DB  6,25
			DB  7,&1E-2-2
		    DB	9,7
			DB  12,&30
            DB  13,&00

PLAY_MUSIC_FAP	
; 620 NOPS for INTRO
		di
		ld bc,&7f00+BK_MUSIC
		out (c),c
    	ld	(RestoreSp), sp	; Save our precious stack-pointer
    	jp	FapPlay		; Jump into the replay-routine
ReturnAddr:		; Return address the replay-routine will jump back to
RestoreSp equ $+1

    	ld	sp, 0	 	; Restore our precious stack-pointer
        ei			; We may enable the maskable interrupts again
  		nop
		ld bc,&7fc0
		out (c),c
		ret
;
; ******************************************************************
;
SCENARIO
               
SCENARIO_TIMER 	ld a,1                  ; 2
				dec a                   ; 1
				ld (SCENARIO_TIMER+1),a ; 4
				jp nz,LEAVE_SCENARIO_MANAGEMENT   ; 2
;
NEW_SCENARIO
POS_TAB_SCE 	ld hl,TAB_SCENARIO
	   		 ld a,(hl)
	  		  or a
		    jr nz,PAS_FIN_TAB
;
	 		   ld hl,TAB_SCENARIO_LOOP
	  			  ld a,(hl)	
PAS_FIN_TAB


	    ld (SCENARIO_TIMER+1),a


		inc l
		ld e,(hl)
	    inc l
	 	 ld d,(hl)
		ld (PART+1),de
		inc l

		ld (POS_TAB_SCE+1),hl
    

LEAVE_SCENARIO_MANAGEMENT

;
		ret
;
SCENARIO_SPR
               
SCENARIO_SPR_TIMER 	ld a,1                  ; 2
				dec a                   ; 1
				ld (SCENARIO_SPR_TIMER+1),a ; 4
				jp nz,LEAVE_SCENARIO_SPR_MANAGEMENT   ; 2
;
NEW_SCENARIO_SPR
POS_TAB_SCE_SPR 	ld hl,TAB_SCENARIO_SPR
	   		 ld a,(hl)
	  		  or a
		    jr nz,PAS_FIN_TAB_SPR
;
	 		   ld hl,TAB_SCENARIO_SPR
	  			  ld a,(hl)	
      	;	  jr PAS_FIN_TAB+7	
;
PAS_FIN_TAB_SPR


	    ld (SCENARIO_SPR_TIMER+1),a
;
		inc l
		ld e,(hl)
	    inc l
	 	 ld d,(hl)
		ld (ROUTINE_DISPLAY_HEART+1),de
		inc l
		ld (POS_TAB_SCE_SPR+1),hl
    

LEAVE_SCENARIO_SPR_MANAGEMENT

;
		ret

; 
generate_line_fullscreen LD HL,#C000 
	    LD de,#C000+SCREEN_WIDTH 
	    LD bc,#0800 
	    LD iy,TABLINE_96
;        LD ix,TABLINE_96+&100
; 
	    ld a,170 ; XOR A  ; a=256 lines
;
loop    LD (iy+#00),l
        res 7,h       ; all addresses in page &4000
	    LD (iy+#01) ,h
		inc iyl
		inc iy
        set 7,h
;
		ADD hl,bc 
		JR nc,nocarry 
;	
		ADD hl,de 
nocarry; INC ixl
;	INC iyl 
		DEC a
		JR nz,loop 
		ret
;		
generate_line_standart LD HL,#C000 
	    LD de,#C000+80
	    LD bc,#0800 
	    LD iy,TABLINE_80
;
	    ld a,200 ; XOR A  ; a=256 lines
;
.loop    LD (iy+#00),l
;        res 7,h       ; all addresses in page &4000
	    LD (iy+#01) ,h
		inc iyl
		inc iy
;        set 7,h
;
		ADD hl,bc 
		JR nc,.nocarry 
;	
		ADD hl,de 
.nocarry; INC ixl
;	INC iyl 
		DEC a
		JR nz,.loop 
		ret

HACK_BACK
	    LD	BC,#F40E
        OUT	(C),C
        LD	BC,#F6C0
        OUT	(C),C
;  XOR	A
;  OUT	(C),A
  		defb &ed,&71
        LD	BC,#F792
        OUT	(C),C
        LD	BC,#F645
        OUT	(C),C
        LD	B,#F4
        IN	A,(C)
        LD	BC,#F782
        OUT	(C),C
;  LD	BC,#F600
;  OUT	(C),C
		dec b
		defb &ed,&71
;		
        RLA	
;
		JP C,GO_HACK


		ld hl,BYTEX+1
		ld a,(hl)
		inc a
		ld (hl),a


GO_HACK

		di
;		
		ld (STORE_SPX+1),sp
;
		ld sp,TABLINE_96+100+8
;
		ld b,50-3
BYTEX		ld a,0
			ld de,36
LOOP_FILLX
	

		pop hl 
		add hl,de
		ld (hl),a	
	;	exx	
		djnz LOOP_FILLX

STORE_SPX ld sp,&1000
		ei
		ret

;
DISPLAY_BACKGROUND1
		di
;		
		ld (STORE_SP1+1),sp
		ld sp,TABLINE_96

NB_BGD_LINE1		ld b,30
LOOP_FILL1
		exx
		ld hl,LINE_MODE2_PEN1_MODE0_PEN14
		pop de
		ld bc,96		
		ldir
		exx	
		djnz LOOP_FILL1
;
      ld (POK_SP2+1),sp
;
STORE_SP1 ld sp,&1000
		ei
		ret
;		
DISPLAY_BACKGROUND2
		di
;		
		ld (STORE_SP2+1),sp
POK_SP2		ld sp,TABLINE_96
;	
;
     		ld b,30
LOOP_FILL2
		exx
		ld hl,LINE_MODE2_PEN1_MODE0_PEN14
		pop de
		ld bc,96		
		ldir
		exx	
		djnz LOOP_FILL2
        ld (POK_SP3+1),sp

STORE_SP2 ld sp,&1000
		ei
		ret

DISPLAY_BACKGROUND3
		di
;		
		ld (STORE_SP3+1),sp
POK_SP3	 ld sp,TABLINE_96
;	

NB_BGD_LINE2		ld b,47-30
LOOP_FILL3
		exx
POK_MIDDLE_LINE1		ld hl,LINE_MODE2_PEN1_MODE0_PEN14 ; LINE_HBL_MODE1 when HBL are ON
 		pop de 
		ld bc,96		
		ldir
		exx	
		djnz LOOP_FILL3
;		
        ld (POK_SP4+1),sp
;
STORE_SP3 ld sp,&1000
		ei
		ret		

DISPLAY_BACKGROUND4
		di
;		
		ld (STORE_SP4+1),sp
POK_SP4	 ld sp,TABLINE_96
;	
  		ld b,30
LOOP_FILL4
		exx

        ld hl,(POK_MIDDLE_LINE1+1) 
  		pop de 
		ld bc,96		
		ldir
		exx	
		djnz LOOP_FILL4
;		
        ld (POK_SP5+1),sp
;
STORE_SP4 ld sp,&1000
		ei
		ret		

DISPLAY_BACKGROUND5
		di
		ld (STORE_SP5+1),sp
;		
POK_SP5	 ld sp,TABLINE_96
;
NB_BGD_LINE3		ld b,31
LOOP_FILL5
		exx
POK_BOTTOM_LINE1	ld hl,LINE_MODE1_EMPTY_PEN0   ;  LINE_MODE2_PEN1_MODE0_PEN14 when HBL are ON
		pop de
		ld bc,96		
		ldir
		exx	
		djnz LOOP_FILL5
;
         ld (POK_SP6+1),sp
;		 
STORE_SP5 ld sp,&1000
		ei
		ret
;
DISPLAY_BACKGROUND6
		di
		ld (STORE_SP6+1),sp
;		
POK_SP6	 ld sp,TABLINE_96

;
;NB_BGD_LINE5		
             ld b,30
LOOP_FILL6
		exx
        ld hl,(POK_BOTTOM_LINE1+1) 
;		
		pop de
		ld bc,96		
		ldir
		exx	
		djnz LOOP_FILL6
;
STORE_SP6 ld sp,&1000
		ei
		ret


;
LINE_MODE1_EMPTY_PEN0  defs 96,0
LINE_MODE2_PEN1_MODE0_PEN14 defs 96,255
LINE_HBL_MODE1 defs 34,255
					defs 30,0
					defs 32,255; &3F
;					

DISPLAY_SPRITE_80BYTES

	di
; a = HEIGHT	
; hl = SPRITE 
; bc = ADDRESSES TABLE
;	
	ld (STORE_SPZ+1),sp
	ld sp,hl
;
	ld l,c
	ld h,b
;

LOOP_SPRITE    
;	
	ex de,hl
	pop hl

POSX_SPRITE ld bc,00
	add hl,bc	
	ex de,hl

WIDTH_SPRITE ld bc,20

	ldir
    dec a
	jr nz,LOOP_SPRITE 
;
STORE_SPZ ld sp,000
;
	ei
	ret

DISPLAY_SPRITE_SHORT
	di
; hl = SPRITE 
; bc = ADDRESSES TABLE
;	
	ld (STORE_SP+1),sp
	ld sp,hl
;
	ld l,c
	ld h,b
    jp SHORT
 

DISPLAY_SPRITE
	di
; hl = SPRITE 
; bc = ADDRESSES TABLE
;	
	ld (STORE_SP+1),sp
	ld sp,hl
;
	ld l,c
	ld h,b
;	
    repeat 2
;	
	ex de,hl
	pop hl

	ld c,a
	ld b,0
	add hl,bc	
	ex de,hl
	
;
	repeat SPRWIDTH
	ldi
	rend
;	
	rend 
SHORT
;	
	repeat SPRHEIGHT-2
;	
	ex de,hl
	pop hl

	ld c,a
	ld b,0
	add hl,bc	
	ex de,hl

;
	repeat SPRWIDTH
	ldi
	rend

	rend

STORE_SP ld sp,000
;
	ei
	ret

DISPLAY_MOVING_SPRITE1
MOVE_SPR_H 	ld hl,TAB_MOVES_T+&200+&ff ; 
STOP_MOVH	inc l
			ld (MOVE_SPR_H+1),hl
			ld a,(hl)
			exx
			add a,a
			add a,a
			ld h,a
			ld l,0
						
SPRITE1		ld bc,SPRITE_HL
			add hl,bc
			ld (SPRITE1_FINAL+1),hl
			exx

			dec h

			ld a,(hl)
			add a,a
			ld e,a
			ld d,0
;			
			dec h                 ; table X
			ld a,(hl)
;
			ld bc,0
			ld hl,TABLINE_96
			add hl,de
			add hl,bc
;
SPRITE1_FINAL		ld bc,SPRITE_HL
		call DISPLAY_SPRITE

		ret

DISPLAY_MOVING_SPRITE2

MOVE_SPR_L 	ld hl,TAB_MOVES_B+&200 ; +&ff+1 ; table Y
STOP_MOVL			inc l
			ld (MOVE_SPR_L+1),hl
			ld a,(hl)
;
			exx
			add a,a
			add a,a
			ld h,a
			ld l,0
						
SPRITE2		ld bc,SPRITE_LL
			add hl,bc
			ld (SPRITE2_FINAL+1),hl
			exx
	     	dec h
			ld a,(hl)
			add a,a
			ld e,a
			ld d,0
;			
			dec h                 ; table X
			ld a,(hl) 

			ld bc,72+16+16+4+2+6+2
			ld hl,TABLINE_96
			add hl,de
			add hl,bc
;
SPRITE2_FINAL			ld bc,SPRITE_LL

		call DISPLAY_SPRITE
		ret

			align 256
;	
TAB_SCENARIO   
;			
           defb 128 
           defw STATIC_SPRITES
TAB_SCENARIO_LOOP 
;			
			defb &98
			defw PART3
;			
			defb 256-&98-1
			defw PART4
;			
			defb 1
			defw PART5
;	
			defb &98+5 ; +5-2
			defw PART1
;
			defb 256-&98-5-1
			defw PART2
;
            defb 1
			defw PART6

	;		defb &98
	;		defw PART3
;			
;			defb 256-&98-1
;			defw PART4
;			
;			defb 1
;			defw PART5
;	
;			defb &98+5 ; +5-2
;			defw PART1
;
;			defb 256-&98-5-1
;			defw PART2
;
;           defb 1
;			defw PART6

            defb &98/2+20-10
			defw PART3

           defb 128 
           defw STATIC_SPRITES2
			defb 0

TAB_SCENARIO_SPR 
 ;
              defb 3
              defw DISPLAY_HEART4
               defb 3
              defw DISPLAY_HEART5
			   defb 3
              defw DISPLAY_HEART6
			   defb 3
              defw DISPLAY_HEART5
			   defb 3
              defw DISPLAY_HEART4
			   defb 3
              defw DISPLAY_HEART3
			   defb 3
              defw DISPLAY_HEART2
			   defb 3
              defw DISPLAY_HEART1
			   defb 3
              defw DISPLAY_HEART2
			   defb 3
              defw DISPLAY_HEART3
;			  
			  defb 0


TAB_SCENARIO_TRANSITION1   
			
			defb 1
			defw DISPLAY_BACKGROUND1
			defb 1
			defw DISPLAY_BACKGROUND2			
			defb 1
			defw DISPLAY_BACKGROUND3
			defb 1
			defw DISPLAY_BACKGROUND4
			defb 1
			defw DISPLAY_BACKGROUND5
            defb 1
			defw DISPLAY_BACKGROUND6
			defb 1
			defw DISPLAY_B_TRANSITION1
;			

			defb 0			
PART1 	

MODE_TOP_1 			ld a,&8c  ; 			
					ld (MODE_TOP+1),a	
					ld (POK_M2+1),a	

MODE_BOTTOM_1 		ld a,&8e
					ld (MODE_BOTTOM+1),a	
					ld (POK_M1+1),a
			;		ld (POK_M2+1),a	


		ld a,&69 ; out (c),l
		ld (PATCH1+1),a
		ld a,&59 ; out (c),e
		ld (PATCH2+1),a	
;
SPR1_1		LD hl,SPRITE_HL
SPR2_1		LD de,SPRITE_LL

				ld (SPRITE1+1),de
				ld (SPRITE2+1),hl
;
				ld c,&49
				ld a,&49

switch_raster2_1 ld de,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER1A+1),de
switch_pens1_1  ld de,&010f
				ld (POK_RASTER1+1),de	

				ld a,&1
				ld (POK_RASTER2+2),a			
;????
switch_raster1_1  ld hl,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER0A+1),hl


; ?????				
switch_pens2_1  ld hl,&0f01	
				ld (POK_RASTER0+1),hl
;
				ld c,&49   ; out c,(l)   
				ld a,&49
POKE2_1
				ld hl,POK_OUT_L+1
				ld (hl),c
				ld de,POK_OUT_R+1
				ld (de),a
;
				ret

PART2 	

MODE_TOP_2 			ld a,&8c  ; 
					ld (POK_M1+1),a
					ld (MODE_TOP+1),a	

MODE_BOTTOM_2		ld a,&8e
					ld (MODE_BOTTOM+1),a	
					ld (POK_M2+1),a	

		ld a,&59
		ld (PATCH1+1),a
		ld a,&69 
		ld (PATCH2+1),a	


;
SPR1_2		LD hl,SPRITE_HL
SPR2_2		LD de,SPRITE_LL

				ld (SPRITE1+1),de
				ld (SPRITE2+1),hl
;
				ld c,&49
				ld a,&49

switch_raster2_2 ld de,RASTER_BOTTOM_TOP ; &5D58
				ld (POK_RASTER1A+1),de
switch_pens1_2  ld de,&010f
				ld (POK_RASTER1+1),de		

				ld a,&f
				ld (POK_RASTER2+2),a			
;????
switch_raster1_2  ld hl,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER0A+1),hl
; ?????				
switch_pens2_2  ld hl,&0f01	
				ld (POK_RASTER0+1),hl
;
				ld c,&69   ; out c,(l)   
				ld a,&49
POKE2_2
				ld hl,POK_OUT_L+1
				ld (hl),c
				ld de,POK_OUT_R+1
				ld (de),a
;
				ret

STATIC_SPRITES2
    xor a
	ld (STOP_MOVH),a
	ld (STOP_MOVL),a
	jr PART3


STATIC_SPRITES
    ld hl,TAB_MOVES_T+&200+&ff
	ld (MOVE_SPR_H+1),hl
	ld hl,TAB_MOVES_B+&200 
    ld (MOVE_SPR_L+1),hl
PART3

MODE_TOP_3 			ld a,&8e  ; 			
					ld (MODE_TOP+1),a	
					ld (POK_M2+1),a	

MODE_BOTTOM_3 		ld a,&8c
					ld (MODE_BOTTOM+1),a	
					ld (POK_M1+1),a

;			

      	ld a,&69 ; out (c),l
		ld (PATCH1+1),a
		ld a,&59 ; out (c),e
		ld (PATCH2+1),a	
SPR1_3		LD hl,SPRITE_HL
SPR2_3		LD de,SPRITE_LL

				ld (SPRITE1+1),hl
				ld (SPRITE2+1),de
;
				ld c,&49
				ld a,&49

switch_raster2_3 ld de,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER1A+1),de
switch_pens1_3  ld de,&0f01
				ld (POK_RASTER1+1),de	

				ld a,&f
				ld (POK_RASTER2+2),a				
;????
switch_raster1_3  ld hl,RASTER_TOP_BOTTOM  ;&585D
				ld (POK_RASTER0A+1),hl


; ?????				
switch_pens2_3  ld hl,&0f01	
				ld (POK_RASTER0+1),hl
;
				ld c,&49   
				ld a,&49
POKE2_3
				ld hl,POK_OUT_L+1
				ld (hl),c
				ld de,POK_OUT_R+1
				ld (de),a
;
				ret

PART4

MODE_TOP_4 			ld a,&8e  ; 			
					ld (MODE_TOP+1),a	
					ld (POK_M1+1),a	

MODE_BOTTOM_4 		ld a,&8c
					ld (MODE_BOTTOM+1),a	
					ld (POK_M2+1),a
			;		ld (POK_M2+1),a	
;			
SPR1_4		LD hl,SPRITE_HL
SPR2_4		LD de,SPRITE_LL

				ld (SPRITE1+1),hl
				ld (SPRITE2+1),de
;
				ld c,&49
				ld a,&49

switch_raster2_4 ld de,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER1A+1),de
switch_pens1_4  ld de,&010f
				ld (POK_RASTER1+1),de


				ld a,&f
				ld (POK_RASTER2+2),a	

switch_raster1_4  ld hl,RASTER_TOP_BOTTOM  ;&585D
				ld (POK_RASTER0A+1),hl
			
switch_pens2_4  ld hl,&0f01	
				ld (POK_RASTER0+1),hl
;
				ld c,&69   
				ld a,&49
POKE2_4
				ld hl,POK_OUT_L+1
				ld (hl),c
				ld de,POK_OUT_R+1
				ld (de),a
				ret

PART5
 ;kpoint
MODE_TOP_5 			ld a,&8e  ; 			
					ld (MODE_TOP+1),a	
					ld (POK_M1+1),a	

MODE_BOTTOM_5 		ld a,&8c
					ld (MODE_BOTTOM+1),a	
					ld (POK_M2+1),a
			;		ld (POK_M2+1),a	
;			
SPR1_5		LD hl,SPRITE_LL ;  SPRITEHL
SPR2_5		LD de,SPRITE_HL

				ld (SPRITE1+1),hl
				ld (SPRITE2+1),de
;
				ld c,&49
				ld a,&49

switch_raster2_5 ld de,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER1A+1),de
switch_pens1_5  ld de,&010f
				ld (POK_RASTER1+1),de


				ld a,&f
				ld (POK_RASTER2+2),a	

switch_raster1_5  ld hl,RASTER_TOP_BOTTOM  ;&585D
				ld (POK_RASTER0A+1),hl
			
switch_pens2_5  ld hl,&0f01	
				ld (POK_RASTER0+1),hl
;
				ld c,&69   
				ld a,&49
POKE2_5
				ld hl,POK_OUT_L+1
				ld (hl),c
				ld de,POK_OUT_R+1
				ld (de),a
				ret



PART6

MODE_TOP_6			ld a,&8e  ; 			
					ld (MODE_TOP+1),a	
					ld (POK_M2+1),a	

MODE_BOTTOM_6 		ld a,&8c
					ld (MODE_BOTTOM+1),a	
					ld (POK_M1+1),a
			;		ld (POK_M2+1),a	
;			

	ld a,&69 ; out (c),l
		ld (PATCH1+1),a
		ld a,&59 ; out (c),e
		ld (PATCH2+1),a	
SPR1_6		LD hl,SPRITE_HL
SPR2_6		LD de,SPRITE_LL

				ld (SPRITE1+1),hl
				ld (SPRITE2+1),de
;
				ld c,&49
				ld a,&49

switch_raster2_6 ld de,RASTER_TOP_BOTTOM ; &585D
				ld (POK_RASTER1A+1),de
switch_pens1_6  ld de,&0f01
				ld (POK_RASTER1+1),de	

				ld a,&f
				ld (POK_RASTER2+2),a	

switch_raster1_6  ld hl,RASTER_TOP_BOTTOM  ;&585D
				ld (POK_RASTER0A+1),hl

		
switch_pens2_6  ld hl,&0f01	
				ld (POK_RASTER0+1),hl
;
				ld c,&49   
				ld a,&49
POKE2_6
				ld hl,POK_OUT_L+1
				ld (hl),c
				ld de,POK_OUT_R+1
				ld (de),a
;
				ret

COLOR
	ld bc,&7f00
BOUCOLOR
	out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c 
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l  
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)
	out (c),a
	inc l
	inc c
    out (c),c
	ld a,(hl)  
	out (c),a
;
	inc l
	inc c
    out (c),c
	ld a,(hl)  
	out (c),a
	ret	
;
HBL_ZONE_02

		di
;
; IMPORTANT *****************************
; start at HCC = &1C

;	NOP

	exx

POK_M1X		ld bc,&7f8e
POK_RASTER1X	ld hl,&010f
POK_RASTER1AX ld de,&5454 ;RASTER_BOTTOM_TOP ;&5D58
			out (c),h
			out (c),d
			out (c),l
;						
POK_M2X		ld hl,&8d8c
		;	ld a,h
;			
PATCH1X			out (c),e  ; 
		exx
PATCH_LOGO1	ld hl,&1932
; was 	ld de,&1F07
    ld de,&1f08
	ld bc,&bc03
	out (c),c
	inc b
;	dec c    ; &bd02
	defs 27-1,0

	out (c),e   ; R3=&08
		ld c,2 ; &8c
	exx
PATCH2X 	out (c),l   ; mode 0
  ;   defs 4,0
	exx
;	defs 5,0


   ld a,HEIGHT_HBL_FLASH
HBL_FLASH
;	repeat 48
;
; was out (c),c ; R3= 2	
;
	exx ;
	out (c),l ; MODE 0
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F

	defs 10,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
;
	defs 10-4,0
    dec a
	jr nz,HBL_FLASH
;	
;	rend	
; *****************************************	
; last line 
	out (c),c ; R3= 2
;
	exx 
	out (c),h ; mode 
	exx
	dec b
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &12
;
	defs 8-2,0
	ld e,&8e-2
	out (c),d   ; R2 = &22
	exx 
POK_OUT_RX	out (c),c ; mode 
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	exx
POK_OUT_LX 	out (c),l    ; dernier mode
;	defs 4,0
	
	exx

; breakpoint
	out (c),e    ; R3 = &A

			exx
POK_RASTER2X 
			ld hl,&0f54
			out (c),h
			out (c),l
			ld h,&F		
			out (c),h
			out (c),l	
		;	exx 

	ret

DISPLAY_H_LOGO
; H
	ld a,14
    ld (WIDTH_SPRITE+1),a
	ld a,20-14+2+2
	ld (POSX_SPRITE+1),a

; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,44-1-3
	ld bc,SPRITE_H_LOGO
	ld hl,TABLINE_80+16-8
    call DISPLAY_SPRITE_80BYTES
	ret
;


DISPLAY_ORNY
; hORNY
	ld a,25
    ld (WIDTH_SPRITE+1),a
	ld a,20+1
	ld (POSX_SPRITE+1),a

; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,44 
	ld bc,ORNY
	ld hl,TABLINE_80
    call DISPLAY_SPRITE_80BYTES
	ret


DISPLAY_B_LOGO   
; bYTES
	ld a,15-1
    ld (WIDTH_SPRITE+1),a
	ld a,0
	ld (POSX_SPRITE+1),a
; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,48-4-4
	ld bc,SPRITE_B_LOGO
	ld hl,TABLINE_80+60+50-20-2-2+4+2

    call DISPLAY_SPRITE_80BYTES
	ret
DISPLAY_YTES   
; bYTES
	ld a,23
    ld (WIDTH_SPRITE+1),a
	ld a,10+4-2
	ld (POSX_SPRITE+1),a
; a = HEIGHT	
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,48-6-1
	ld bc,YTES
	ld hl,TABLINE_80+60+50-20-2-2+4-2

    call DISPLAY_SPRITE_80BYTES
;
; MODE 0 patch for the first line of S
; which is supposed to be in MODE 1
;
       ld a,64  
PATCH ld hl,&E1AF
       ld (hl),a
	   inc l
	   ld a,192
	   ld (hl),a
;	   inc l
;	   ld (hl),a
	ret


DISPLAY_L_LOGO


	ld a,16
    ld (WIDTH_SPRITE+1),a
	ld a,35+2
	ld (POSX_SPRITE+1),a

; a = HEIGHT	 
; bc = SPRITE 
; hl = ADDRESSES TABLE
    ld a,45
	ld bc,SPRITE_L_LOGO
	ld hl,TABLINE_80+300-2
    call DISPLAY_SPRITE_80BYTES
	ret


HBL_ZONE_LOGO
		di
; IMPORTANT *****************************
; start at HCC = &1C
	    exx
		ld bc,&7f8e					
		ld hl,&8d8c
;
	exx
	ld hl,&1800+R2_LOGO
    ld de,&1f08
	ld bc,&bc03
	out (c),c
	inc b
	defs 27-1,0
	out (c),e   ; R3=&08
	exx
    out (c),l   ; mode 0
	exx
	ld c,2 ; &8c
;
  nop
  nop
    ld a,HEIGHT_HBL_HORNY
HBL_HORNY1
;	repeat 20
	exx 
	out (c),l ; MODE 0
	exx
	out (c),c ; R3= 2
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F
	defs 10,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
	defs 10-4,0
    dec a
	jr nz,HBL_HORNY1
		exx 
	out (c),l ; MODE 0
	exx
	out (c),c ; R3= 2
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
;	dec h
	out (c),h   ; R2 = &1F
	defs 9+1,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
	defs 10-3,0
    ld a,HEIGHT_HBL_HORNY2
	dec h
;	
HBL_HORNY2
;	repeat 20
	exx 
	out (c),l ; MODE 0
	exx
	out (c),c ; R3= 2
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	
	out (c),h   ; R2 = &1F
	defs 9+1,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
	defs 10-4,0
    dec a
	jr nz,HBL_HORNY2
;	rend	
; *****************************************	
	exx 
	out (c),l ; MODE 0
	exx
	out (c),c ; R3= 2
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	
	out (c),h   ; R2 = &1F
	defs 9+1,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c 
    defs 10-3,0
    ld a,HEIGHT_HBL_HORNY3+1
	dec h

HBL_HORNY3
;	repeat 20
	exx 
	out (c),l ; MODE 0
	exx
	out (c),c ; R3= 2
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	
	out (c),h   ; R2 = &1F
	defs 9+1,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
	defs 10-4,0
    dec a
	jr nz,HBL_HORNY3
	exx 
	out (c),l ; MODE 0
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F

	defs 10,0
	exx 
	out (c),l ; mode 0 for the transition line
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c

	ld h,&14+1
	exx
 
; 64NOPS
    ld bc,&7f01
	out (c),c
	ld c,COLOR1_BYTES_LOGO
	out (c),c
	defs 64-13-32-4,0
; end of the line
    ld c,&8d
	out (c),c
	defs 32,0
	exx
	defs 4-2,0
    ld a,HEIGHT_HBL_BYTES
HBL_BYTES

	exx 
	out (c),l ; MODE 0
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F

	defs 10,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
;
	defs 10-4,0
    dec a
	jr nz,HBL_BYTES	
;	

	exx 
	out (c),l ; MODE 0
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F

	defs 10,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
;
    defs 10-2,0 
	ld h,&10

    ld a,HEIGHT_HBL_BYTES2
HBL_BYTES2

	exx 
	out (c),l ; MODE 0
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F

	defs 10,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
;
	defs 10-4,0
    dec a
	jr nz,HBL_BYTES2	

	exx 
	out (c),l ; MODE 0
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &1F

	defs 10,0
	exx 
	out (c),c ; mode 2
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	out (c),e    ; R3 = &7
	dec c        
;
     exx 
	out (c),l ; MODE 0
	exx
;	
	dec b
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &12
;
	defs 8-2,0
	ld e,&8e
	out (c),d   ; R2 = &22
	exx 
; out (c),c ; mode 
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	exx
  out (c),l    ; dernier mode
;	defs 4,0
	
	exx

	out (c),e    ; R3 = &A

			exx
	ret


HBL_ZONE_012
		di
;
; IMPORTANT *****************************
; start at HCC = &1C

;	NOP

	exx
; preload the 2 MODEs
; H=left mode
; L=right mode  
;

POK_M1		ld bc,&7f8e
POK_RASTER1	ld hl,&010f
POK_RASTER1A ld de,RASTER_BOTTOM_TOP ;&5D58
			out (c),h
			out (c),d
			out (c),l
;						
POK_M2		ld hl,&8d8c
		;	ld a,h
;			
PATCH1			out (c),e
		exx
	ld hl,&1132
; was 	ld de,&1F07
   ld de,&1f08
	ld bc,&bc03
	out (c),c
	inc b
;	dec c    ; &bd02
	defs 27-1,0

	out (c),e   ; 
	ld c,2 ; &8c
	exx
PATCH2	out (c),l
	exx
;	defs 5,0

  ld a,HEIGHT_HBL_MAIN
   nop
   nop
HBL_LOOP_012
;	repeat 48+4-1+10-3-12
;
; was out (c),c ; R3= 2	
;
	exx 
	out (c),h ; mode 
	exx
;
	out (c),c ; R3= 2
;
	dec b
	ld c,2
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &11
;
	defs 8-2,0
	out (c),d   ; R2 = &1F
	exx 
	out (c),c ; mode 
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	exx
	out (c),l
	exx
	out (c),e    ; R3 = &7
	dec c        
;
	;defs 4,0	
    dec a
	jr nz,HBL_LOOP_012
	nop
	;rend	
; last line 
    exx 
	out (c),h ; mode 
	exx
	out (c),c ; R3= 2
;
	
	dec b
	out (c),c ; R2 selected
	inc b
	out (c),h   ; R2 = &12
;
	defs 8-2,0
	ld e,&8e-2
	out (c),d   ; R2 = &22
	exx 
POK_OUT_R	out (c),c ; mode 
	exx
	out (c),l   ; R2 = &32 = 50
	inc c
	dec b
	out (c),c   ; R3 selected
	inc b
	exx
POK_OUT_L 	out (c),l    ; dernier mode
;	defs 4,0
	
	exx

	out (c),e    ; R3 = &A
;

			exx
POK_RASTER2 ld hl,&0f00+BORDER_BOTTOM
			out (c),h
			out (c),l
			ld h,&F		
			out (c),h
			out (c),l	
			exx 
	        ret
; 			
	align 256
; 	
; PEN 7 is set to BORDER_TOP to hide the post-HBL parasite
; from MODE 1 to MODE 0 	
TCOL_MAIN defb INK0,BORDER_BOTTOM
	defb 91,BORDER_TOP
	defb &4d,BORDER_TOP,84
	defb BORDER_TOP
	defb &4f,&45,&5d,&4b
	defb 67 ; &59 ; 91 
	defb &5f,&55,BORDER_TOP
;	
	defb BORDER_TOP
;	
; PEN 7 is set to BLACK to hide the post-HBL parasite
; from MODE 2 to MODE 0 	   
TCOL_FLASH1 defb 75,84,79,77
		defb &4d,84,84
		defb 84
		defb &4f,&45,&5d
		defb 75,67,&5f,&55,84
		defb 84

TCOL_FLASH2 defb 84,84,75,91
	    defb &4d,84,84
		defb 84
		defb &4f,&45,&5d
		defb 75,67,&5f,&55,84
		defb 84
;		
TCOL_LOGO 
    defb &54,88 ; &55
	defb &5f,&5d ; &45
	defb &47,&5e,69,&46,&4f,&40,&43,&4b,&4a,&44,&5c,&4e
	defb &54
     ;   DB	#54,#5C,#43,#4B,#47,#5E,#4c,#5f,#44,#40,#4e,#4f,#5d,#4a,#5B,#46,#54




;defb 84,&4B,&n43,&5c
          ; defb &47,&5e,&44,&5f,&4e,&4c,&4f,&5d,&4a,&40,&5b,&54

POSXH    equ 30-5
POSXL    equ 50+4
TABLE_FLASHING_MOVES
  
            defb MODE2,1 
            defw SPRITE_HL,SPRITE_LR
			defb POSXH,POSXL
;
            defb MODE0,1  
            defw SPRITE_HL,SPRITE_LR
			defb POSXH,POSXL            
;
   repeat 20
            defb MODE2,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH,POSXL
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH,POSXL 

		rend	
; 
; --
            defb MODE2,1  
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-1,POSXL+1
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-1,POSXL+1        
;
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-2,POSXL+2
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-2,POSXL+2          
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-3,POSXL+3
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-3,POSXL+3       
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-4,POSXL+4
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-4,POSXL+4     
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-5,POSXL+5
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-5,POSXL+5        			
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-6,POSXL+6
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-6,POSXL+6        
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-7,POSXL+7
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-7,POSXL+7       
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-8,POSXL+8
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-8,POSXL+8      
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-9,POSXL+9
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-9,POSXL+9     
;
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-10,POSXL+10
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-10,POSXL+10     
;
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-11,POSXL+11
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-11,POSXL+11   
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-12,POSXL+12
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-12,POSXL+12  
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-13,POSXL+13
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-13,POSXL+13  
;
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-14,POSXL+14
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-14,POSXL+14  
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-15,POSXL+15
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-15,POSXL+15  
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-16,POSXL+16
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-16,POSXL+16  
; --
            defb MODE2,1   
            defw SPRITE_HR,SPRITE_LL
			defb POSXH-17,POSXL+17
;
            defb MODE0,1   
            defw SPRITE_HL,SPRITE_LR
			defb POSXH-17,POSXL+17 ;
;
		    defb MODE0,10   
            defw SPRITE_VIDE,SPRITE_VIDE
			defb POSXH-17,POSXL+17 ;
 

            defb 0		
;						
COEUR4  incbin "files/COEUR4F.WIN"
COEUR3  incbin "files/COEUR3F.WIN"
COEUR2  incbin "files/COEUR2F.WIN"
COEUR1  incbin "files/COEUR1F.WIN"
;
CRTC_TYPE defb SELECTED_CRTC		   
;
  read "rain.asm"
	list 
	nop

EXIT_PART

	DS_SECURE_WAIT_VSYNC()
	ld hl,ini_crtc_load
	call put_crtc

	ld bc, 0x7f54
	xor a
.black_loop
		out (c), a
		out (c), c
		inc a
		cp 18
	jr nz, .black_loop
;
	
	call ds_stop_sound


if LOAD_THE_LOADER
	NEXT_STEP_ADDRESS equ 0x100
else
	NEXT_STEP_ADDRESS equ 0x180
endif

    di
    ld hl, start_loader
	ld de, NEXT_STEP_ADDRESS
    ld bc, stop_loader - start_loader
	ldir
    ld sp, NEXT_STEP_ADDRESS
    jp NEXT_STEP_ADDRESS
start_loader
	if LOAD_THE_LOADER
		rorg 0x100
		include "../linking/src/load_outer_space_loader.asm"
		rend
	else
		incbin "../polar_dots/POLAR.LOA"
	endif
stop_loader
;

	DS_PRODUCE_STOP_SOUND_ROUTINE()

  align 256
END_CODE    
	assert $<0xBC000